home *** CD-ROM | disk | FTP | other *** search
/ Killer Drive 64 4 / Killer-Drive_64_04_1998_-_de_Side_B.d64 / kopfjustage 1541 (.txt) < prev    next >
Commodore BASIC  |  2023-02-26  |  2KB  |  40 lines
  1. 0 rem"* disk-exerciser by h.gehrmann hgss *  "(NULL)
  2. 9 rem"* disk-exerciser by h.gehrmann hgss *  "(NULL)
  3. 10 poke53280,5:poke53281,7:rem disk-exercise
  4. 20 print"[147] disk-exerciser  by hg-software systems [146]
  5. 25 [153]"disk-status during exercise:"
  6. 27 [153]"stoptime of reading (must be <9):"
  7. 28 [141]110
  8. 30 a1$[178]"":a2$[178]"        cmdcmdcmdcmdcmdcmdcmdcmd"
  9. 35 a1$[178]a1$[170]"                    cmdcmdcmdcmdcmdcmdcmdcmdcmdcmdcmdcmdcmdcmdcmdcmdcmdcmdcmdcmd"
  10. 40 [159]5,8,15:[159]4,8,3,"#":[159]1,8,15
  11. 50 ti$[178]"000000":[152]5,"b-r";3;0;1;1:[152]5,"b-p"3;1:[161]#4,a$
  12. 60 [143]
  13. 70 [152]5,"b-r";3;0;35;2:[152]5,"b-p"3;1:[161]#4,a$
  14. 80 [132]1,x1,x2$,x3,x4:[153]a1$;x1;x2$;x3;x4:zw[178]ti
  15. 90 [153]a2$;zw:[139]zw[179]9[167][129]w[178]1[164]1000:[130]w:[137]160
  16. 100 [137]50
  17. 110 [153]"verifydieses programm trainiert  das  positio-";
  18. 120 [153]"ren des tonkopfes seitens des disketten-";
  19. 130 [153]"laufwerkes.  wenn eine ausreichende zeit";
  20. 140 [153]"erreicht ist,  geht es mit der naechsten";
  21. 150 [153]"uebung weiter.":[142]
  22. 160 [160]4:[160]5:[160]1
  23. 170 [159]1,8,15
  24. 180 [153]a2$;"onnow initializing!               "
  25. 190 [129]w[178]1[164]10:[152]1,"i":[132]1,x1,x2$,x3,x4:[153]a1$;x1;x2$;x3;x4:[130]w
  26. 200 [160]1
  27. 210 [153]"load   disk-drive and disk has trespassed   ";
  28. 220 [153]"                exercising              "
  29. 230 [153]"stopdurch diese prozedur..."
  30. 240 [153]"...hat sich der tonkopf optimalwait positio-";
  31. 250 [153]"   niert
  32. 260 print"...haben sie somit reparaturgeld und re-";
  33. 270 print"   paraturwartezeit gespart"
  34. 280 print"...hat der schrittmotor wieder ein  bis-";
  35. 290 print"   chen uebung bekommen und  sie  sparen";
  36. 300 print"   positionierungszeit"
  37. 310 print"[149]holger gehrmann[141]heinrichstr. 25[141]3000 hannover 1[141]tel:0511/344771"
  38. 320 print"tausch von c=64[141]programmen !!!!
  39. 330 [153]"sys";:
  40.